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1 DECLARATIONS 


-SBTTL DECLARATIONS 


NO 


; INCLUDE FILES: 


; EXTERNAL SYMBOLS: 


; MACROS: 


Sete 


PSECT DECLARATIONS: 
-PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


EQUATED SYMBOLS: 


OWN STORAGE: 
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- Nearest Integer of H 16-SEP-19 1:44:5 AX/VMS Macro V04-00 Pa 
MTHSJIHNNT - return nearest integer as 1 6-SEP-1984 94:36:39 ERTMR TL. SREIATHJIANNT MAR: 1 = 
§ -SBTTL MTHSJIHNNT - return nearest integer as INTEGER*4 
4 +4 
5 ; FUNCTIONAL DESCRIPTION: 
> ; Returns the nearest integer (rounded away from zero) of a 
3 ; REAL*16 to a INTEGER®4 as a function value. 
a 3 CALLING SEQUENCE: 
09 35 ; result.wl.v = MTHSJIHNNT (arg.rh.r) 
00 3% ; 
4 95 ; INPUT PARAMETERS: 
00000004 4 38 arg = 4 : H floating argument 
0 98 ; IMPLICIT INPUTS: 
2099 39 3 NONE 
44 100 ; 
00 101 ; OUTPUT PARAMETERS: 
0000 136 3 NONE 
Bn08 19 : 
000 104 ; IMPLICIT OUTPUTS: 
0000 105 ; NONE 
0000 106 ; 
0000 107 ; FUNCTION VALUE: 
0000 108 ; The argument rounded to the nearest longword integer away from 
0000 109 ; zero. 
000 110; 
000 111 ; SIDE EFFECTS: 
0000 11 3 Reserved operand, Integer overflow exceptions. 
0000 113; 
0000 114 ;-- 
44 115 
00 116 
0000 «117 
4000 000 118 eENTRY MTHSJIHNNT, “M<IV> 
50 04 BC 6BFD 000 119 CVTRHL @arg(AP), RO ; RO = rounded argument 
04 000 120 RET 
0008 121 
0008 ~=«1 ¢ 
0008 12 -END 
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Symbol table 6-SEP-1984 11:26:2 


mTNsimnnt —* 00000000 RG 01 


wae meme eee + 


PSECT name Allocation PSECT No. Attributes 
» OS 00000000 ( 4 99 9} NOPIC USR CON ABS LCL 
_MTHSCODE 00000008 Vor PIC USR CON REL LCL SHR_ EXE 


(92 to On Om mm eo om em me ED oH oe CoH ee eo Ue om ea oe fe 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 0:00:00.09 0:00:01. 
Command processing 116 80; 8: 0.42 00.00:03-88 
Pass 1 65 00: 8: 0.36 es So 3 
synbol table sort 0 00:00:00. 9 :00:00.0 

s 2 40 00:00:00. ee eM 
Rooker table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 3 00:00:00.02 00:00:00.02 
Cross-reference output 0 Ses i's BS 4 et Bs 
Assembler run totals 256 00:00:01.1 0:00:07.89 


The working set Limit was 750 

1165 bytes G pages) of virtua "nenary were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 2 non-local and é° ee symbols. 
123 source has were read in Pass 1, produc +5 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


@ereeceseecer esc er eer esos ee euros + 
! ; Macro Library statistics ; 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB;2 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
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